﻿Public Class frmConsultaFuncionario
    Dim objBBL As New BLLAgendamento
#Region "Atualização"
    Sub Atualiza()
        cbFiltro.SelectedIndex = 1
        txtLocalizar.Text = ""
        dgFuncionario.DataSource = Nothing
    End Sub
    Sub CarregaGrid()
        Try
            Select Case cbFiltro.SelectedIndex
                Case 0
                    Dim cod As Integer = txtLocalizar.Text
                    'dgdados.DataSource = objBBL.LocalizarPessoa(txtlocalizar.Text, loctipo)
                    dgFuncionario.DataSource = objBBL.LocalizaFuncionario(cod)
                Case 1
                    dgFuncionario.DataSource = objBBL.LocalizaFuncionario(txtLocalizar.Text)
                Case 2
                    dgFuncionario.DataSource = objBBL.LocalizaFuncionarioMatricula(txtLocalizar.Text)
            End Select
            dgFuncionario.Columns(0).HeaderText = "Código" ' define o nome da coluna
            dgFuncionario.Columns(0).Width = 60 'define a largura da coluna
            dgFuncionario.Columns(1).HeaderText = "Nome"
            dgFuncionario.Columns(1).Width = 245
            dgFuncionario.Columns(2).HeaderText = "Matricula"
            dgFuncionario.Columns(2).Width = 170 'define a largura da coluna
        Catch ex As Exception
        Finally
            txtLocalizar.Focus()
        End Try

    End Sub
#End Region
#Region "Validação"
    Private Sub cbFiltro_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles cbFiltro.KeyPress
        e.Handled = True
    End Sub
    Private Sub txtLocalizar_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtLocalizar.KeyPress
        'Aqui Define o tipos de Caracteres que o TextBox Pode Aceitar
        'Se o ComboBox Estar no Indice 0(Código)
        If cbFiltro.SelectedIndex = 0 Or cbFiltro.SelectedIndex = 2 Then
            'Não deixo o Usuário Digitar Letras so Números
            'e Tambem libero para ele Poder Apagar o(s) Números
            If Not Char.IsNumber(e.KeyChar) And Not e.KeyChar = vbBack Then
                e.Handled = True
            End If
        End If
        If e.KeyChar = Convert.ToChar(Keys.Return) Then
            e.Handled = True
            bLocalizar_Click(sender, e)
        End If
    End Sub
    Private Sub cbFiltro_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
        txtLocalizar.Text = ""
    End Sub
#End Region
    Private Sub bLocalizar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLocalizar.Click
        CarregaGrid()
    End Sub

    Private Sub tsbVoltar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsbVoltar.Click
        Me.Close()
    End Sub


    Private Sub frmConsultaFuncionario_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Atualiza()
    End Sub

 
    Private Sub dgFuncionario_CellDoubleClick(sender As System.Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgFuncionario.CellDoubleClick
        Try

            If frmAgendamento.Tipo = "Retorno" Then
                Dim indice As Integer = -1
                'Percorre O DataGridView Verificando a Linha selecionada
                For Each linha As DataGridViewRow In dgFuncionario.SelectedRows
                    If (Not linha.Cells("agd_codigo") Is Nothing) Then
                        'Guarda A Posição Selecionada
                        indice = linha.Index
                    End If
                Next
                If (indice <> -1) Then
                    frmAgendamento.CodAge = dgFuncionario.Rows(indice).Cells("agd_codigo").Value.ToString()
                    frmAgendamento.DesAge = dgFuncionario.Rows(indice).Cells("agd_nome").Value.ToString()

                    Atualiza()
                    Me.Close()
                End If
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
End Class